From: Chong Yidong Date: Tue, 7 Apr 2009 00:46:11 +0000 (+0000) Subject: * descr-text.el (describe-property-list, describe-char): Add X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~421^2~942 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=8be0860102e6121ea101de5814300323454a4561;p=emacs.git * descr-text.el (describe-property-list, describe-char): Add follow-link properties to buttons that need them. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index ca864364623..c1b225cef4a 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,4 +1,7 @@ -2009-04-06 Chong Yidong +2009-04-07 Chong Yidong + + * descr-text.el (describe-property-list, describe-char): Add + follow-link properties to buttons that need them. * tooltip.el (tooltip-show-help-non-mode): Don't save the last message if it was also a help message (Bug#2895). diff --git a/lisp/descr-text.el b/lisp/descr-text.el index 5234a4f9a9a..b559a1391fd 100644 --- a/lisp/descr-text.el +++ b/lisp/descr-text.el @@ -84,6 +84,7 @@ into help buttons that call `describe-text-category' or (symbol-name value) 'action `(lambda (&rest ignore) (describe-text-category ',value)) + 'follow-link t 'help-echo "mouse-2, RET: describe this category")) ((memq key '(face font-lock-face mouse-face)) (insert-text-button @@ -513,6 +514,7 @@ as well as widgets, buttons, overlays, and text properties." (if (search-forward ,(char-to-string char) nil t) (goto-char (match-beginning 0)))))) + 'follow-link t 'help-echo "mouse-2, RET: show this character in its character set") str))) @@ -727,7 +729,8 @@ as well as widgets, buttons, overlays, and text properties." "customize what to show" 'action (lambda (&rest ignore) (customize-variable - 'describe-char-unidata-list))) + 'describe-char-unidata-list)) + 'follow-link t) (insert "\n") (dolist (elt (if (eq describe-char-unidata-list t) (nreverse (mapcar 'car char-code-property-alist))